home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / utility / wxlslib.zip / xlslib / init.lsp < prev    next >
Lisp/Scheme  |  1992-02-20  |  2KB  |  59 lines

  1. ; initialization file for XLISP-STAT 2.0
  2.  
  3. ; get some more space
  4. #+small-machine (expand 7)
  5. #+(and macintosh (not small-machine))(expand 15)
  6. #+(and msdos (not small-machine)) (expand 10)
  7. #+(and (not macintosh) (not msdos))(expand 20)
  8.  
  9. ; load in lisp files
  10. (load "common")
  11.  
  12. ; initialize to disable breaks and trace back
  13. (setq *breakenable* nil)
  14. (setq *tracenable* nil)
  15. #+small-machine (setq *keep-documentation-strings* nil)
  16.  
  17. #+macintosh (defvar *help-file-name* "xlisp.help")
  18. #+msdos
  19.   (defvar *help-file-name* (concatenate 'string *default-path* "xlisp.hlp"))
  20. #+(and (not macintosh) (not msdos))
  21.   (defvar *help-file-name* (format nil "~axlisp.help" *default-path*))
  22.  
  23. (defvar *help-stream* 
  24.   (let ((file (open *help-file-name*)))
  25.     (if file file (open (concatenate 'string *help-file-name* ".small")))))
  26. (defvar *line-length* 78 "Line length used in printing help messages")
  27. (defvar *keep-documentation-strings* t)
  28. (defvar *help-loaded* nil)
  29. (defconstant *cursors* 
  30.   '(arrow watch cross brush hand finger hour-glass trash-bag trash-can))
  31. (defconstant *colors* 
  32.   '(white black red green blue cyan magenta yellow))
  33. (defconstant *plot-symbols* 
  34.   '(dot dot1 dot2 dot3 dot4 disk diamond cross square wedge1 wedge2 x))
  35.  
  36. ; load xlispstat objects and related functions
  37. (require "help")
  38. (require "objects")
  39.  
  40. ; load macintosh menus and editing functions
  41. #+macintosh(progn
  42.          (setq *listener* (send listener-proto :new))
  43.          (require "menus")
  44.          (set-menu-bar *standard-menu-bar*))
  45. #+(and msdos windows) (require "mswmenus")
  46. #+(and windows (not macintosh) (not msdos)) (require "menubar")
  47.  
  48. ; load statistics and graphics functions
  49. (require "statistics" #+msdos "stats")
  50. #+dialogs (require "dialogs")
  51. #+windows (require "graphics")
  52. #-windows (require "nongraph")
  53. (require "regression" #+msdos "regress")
  54. (require "autoload.lsp")
  55.  
  56. ; load user initialization file
  57. (load "statinit")
  58.  
  59.